home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / hlp_auth / bhelp / bhelp.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-03-08  |  3.8 KB  |  111 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    Caption         =   "Form2"
  4.    ClientHeight    =   5568
  5.    ClientLeft      =   2436
  6.    ClientTop       =   1932
  7.    ClientWidth     =   6420
  8.    Height          =   5988
  9.    Left            =   2388
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   5568
  12.    ScaleWidth      =   6420
  13.    Top             =   1560
  14.    Width           =   6516
  15.    Begin CommandButton Command1 
  16.       Caption         =   "Cancel"
  17.       Height          =   516
  18.       Index           =   1
  19.       Left            =   540
  20.       TabIndex        =   3
  21.       Tag             =   "This is the Cancel button "
  22.       Top             =   504
  23.       Width           =   1416
  24.    End
  25.    Begin TextBox Text1 
  26.       Height          =   336
  27.       Left            =   252
  28.       TabIndex        =   1
  29.       Tag             =   "This is a text box "
  30.       Text            =   "Text1"
  31.       Top             =   1692
  32.       Width           =   2496
  33.    End
  34.    Begin CommandButton Command1 
  35.       Caption         =   "OK"
  36.       Height          =   516
  37.       Index           =   0
  38.       Left            =   3672
  39.       TabIndex        =   0
  40.       Tag             =   "This is the Ok button "
  41.       Top             =   576
  42.       Width           =   1416
  43.    End
  44.    Begin Label Label2 
  45.       Alignment       =   2  'Center
  46.       BackStyle       =   0  'Transparent
  47.       Caption         =   "No VBX needed for a tool tip ballon help. it just a few lines of code in a module. All You Help information is stored in the TAG property take a look."
  48.       Height          =   1092
  49.       Left            =   1008
  50.       TabIndex        =   5
  51.       Tag             =   "A message from Wise Raven. "
  52.       Top             =   2376
  53.       Width           =   4188
  54.    End
  55.    Begin Label tooltip 
  56.       AutoSize        =   -1  'True
  57.       BackColor       =   &H0000FFFF&
  58.       BorderStyle     =   1  'Fixed Single
  59.       ForeColor       =   &H00000000&
  60.       Height          =   216
  61.       Left            =   1908
  62.       TabIndex        =   4
  63.       Top             =   4464
  64.       Visible         =   0   'False
  65.       Width           =   1956
  66.    End
  67.    Begin Label Label1 
  68.       BorderStyle     =   1  'Fixed Single
  69.       Caption         =   "Label1"
  70.       Height          =   300
  71.       Left            =   3276
  72.       TabIndex        =   2
  73.       Tag             =   "This is a label  "
  74.       Top             =   1656
  75.       Width           =   2352
  76.    End
  77. Dim oldtip
  78. Sub Command1_Click (index As Integer)
  79. '_____ unloads form
  80. Unload Me
  81. End Sub
  82. Sub Command1_MouseMove (index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  83.   If oldtip = index Then Exit Sub
  84.   ToolTip.Caption = Command1(index).Tag
  85.   ToolTip.Width = TextWidth(Command1(index).Tag)
  86.   ToolTip.Move Command1(index).Left + Command1(index).Height * .75, Command1(index).Top + Command1(index).Height * 1.1
  87.   ToolTip.Visible = True
  88.   oldtip = index
  89. End Sub
  90. Sub Label1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  91.   ToolTip.Caption = label1.Tag
  92.   ToolTip.Width = TextWidth(label1.Tag)
  93.   ToolTip.Move label1.Left + label1.Height * .75, label1.Top + label1.Height * 1.1
  94.   ToolTip.Visible = True
  95.    oldtip = Null
  96. End Sub
  97. Sub Label2_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  98.   ToolTip.Caption = label2.Tag
  99.   ToolTip.Width = TextWidth(label2.Tag)
  100.   ToolTip.Move label2.Left + label2.Height * .75, label2.Top + label2.Height * 1.1
  101.   ToolTip.Visible = True
  102.    oldtip = Null
  103. End Sub
  104. Sub Text1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  105.   ToolTip.Caption = text1.Tag
  106.   ToolTip.Width = TextWidth(text1.Tag)
  107.   ToolTip.Move text1.Left + text1.Height * .75, text1.Top + text1.Height * 1.1
  108.   ToolTip.Visible = True
  109.   oldtip = Null
  110. End Sub
  111.